home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 301_400 / DISK0375 / DISK0375.ZIP / TSIN.PAS < prev    next >
Pascal/Delphi Source File  |  1984-07-04  |  340b  |  17 lines

  1. program Tsin;
  2. { test range of sin function
  3. { AUTHOR: Alan Miller
  4. {         Taken from 'Pascal Programs for Scientists and Engineers'
  5. { Entered by Danny Cavasos     June 1984}
  6. var
  7.   i:integer;
  8.   x:real;
  9. begin
  10.   x:=1.0e-4/0.3;
  11.   for i:=1 to 40 do
  12.     begin
  13.       writeln('x=',x,' sin=',sin(x));
  14.       x:=0.1*x;
  15.     end;
  16. end.
  17.